home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / timekeep.sit / Master Client List / background_2588.txt < prev    next >
Encoding:
Text File  |  1987-11-07  |  1.8 KB  |  89 lines
  1. -- background: 2588 from stack: in
  2. -- bmap block id: 6375
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   show bkgnd field "Copyright"
  9.   wait 1 seconds
  10.   hide bkgnd field "Copyright"
  11. end openBackground
  12.  
  13.  
  14.  
  15. -- part 7 (field)
  16. -- low flags: 81
  17. -- high flags: 0002
  18. -- rect: left=0 top=0 right=12 bottom=176
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 0 / 0
  21. -- text alignment: 0
  22. -- font id: 3
  23. -- text size: 9
  24. -- style flags: 0
  25. -- line height: 12
  26. -- part name: Copyright
  27. ----- HyperTalk script -----
  28. on closeField
  29.   put "┬⌐Copyright 1987 by Peter B. Nagel" into field "Copyright"
  30.   answer "Please, do not try to alter copyright notice!"
  31.   set lockText of field "Copyright" to true
  32.   choose browse tool
  33. end closeField
  34.  
  35. on deleteField
  36.   warning 10
  37. end deleteField
  38.  
  39.  
  40. -- part 13 (button)
  41. -- low flags: 00
  42. -- high flags: 8003
  43. -- rect: left=352 top=251 right=270 bottom=474
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 1
  47. -- font id: 3
  48. -- text size: 12
  49. -- style flags: 0
  50. -- line height: 16
  51. -- part name: Prepare Above Bill
  52. ----- HyperTalk script -----
  53. on mouseUp
  54.  
  55. end mouseUp
  56.  
  57.  
  58.  
  59. -- part 14 (button)
  60. -- low flags: 00
  61. -- high flags: 8003
  62. -- rect: left=352 top=219 right=238 bottom=474
  63. -- title width / last selected line: 0
  64. -- icon id / first selected line: 0 / 0
  65. -- text alignment: 1
  66. -- font id: 3
  67. -- text size: 12
  68. -- style flags: 0
  69. -- line height: 16
  70. -- part name: Amt. Due
  71. ----- HyperTalk script -----
  72. on mouseUp
  73.  
  74. end mouseUp
  75.  
  76.  
  77. -- part 19 (field)
  78. -- low flags: 80
  79. -- high flags: 0000
  80. -- rect: left=511 top=341 right=342 bottom=512
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 0 / 0
  83. -- text alignment: 0
  84. -- font id: 3
  85. -- text size: 9
  86. -- style flags: 0
  87. -- line height: 12
  88. -- part name: 
  89.